FM Towns: Free Software Collection 4/FM Towns Free Software Collection 4 - Disc 1.iso/msdos/mcpr/cpruty.asm

Assembly Source File | 1991-10-18 | 6KB | 402 lines

    page    95,132
;§∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞§
;§                                                                          §
;§            マルチカラム　コンパクト　プリント　ユーティリティ            §
;§                                                                          §
;§   Multicolumn Compact PRint utility   ＭＣＰＲ．ＥＸＥ  Ｖｅｒ１.４０    §
;§   ~           ~       ~~                                                 §
;§              Copyright (C) by 福地 邦雄 1989-1990. All rights reserved.  §
;§∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞§
    public    asctoint
    public    inttoascs
    public    inttoasc0
    public    inttoascb
    public    getarg
    public    filelist
    public    abort
    public    errorno
    public    dosstdout
;
data    segment para    public    'DATA'
;
errorno     dw        ?
;
data    ends
;
code    segment para    public    'CODE'
    assume    cs:code,ds:data
;
asctoint    proc
;
    push    bx
    push    cx
    push    dx
    xor    ax,ax
    mov    cx,ax
    mov    bx,10
looplabel:
    mov    cl,es:[di]
    cmp    cl,'0'
    jb    tointend
    cmp    cl,'9'
    ja    tointend
    and    cl,0fh
    mul    bx
    add    ax,cx
    inc    di
    jmp    short    looplabel
tointend:
    test    ax,ax
    pop    dx
    pop    cx
    pop    bx
    ret
;
asctoint    endp
;
inttoascs   proc
;
    push    cx
    push    dx
    cld
    mov    cx,100
    xor    dx,dx
    div    cx
    div    cl
    test    al,al
    jnz    allput5
    test    ah,ah
    jz    supressd
    mov    al,ah
    aam
    test    ah,ah
    jnz    allput4
    add    al,'0'
    stosb
    jmp    short    allput3
supressd:
    mov    al,dl
    aam
    test    ah,ah
    jnz    allput2
    add    al,'0'
lastone:
    stosb
    jmp    short    toascsend
;
allput5:
    add    al,'0'
    stosb
    mov    al,ah
    aam
allput4:
    add    ax,'00'
    xchg    ah,al
    stosw
allput3:
    mov    al,dl
    aam
allput2:
    add    ax,'00'
    xchg    ah,al
    stosw
toascsend:
    pop    dx
    pop    cx
    ret
;
inttoascs   endp
;
inttoasc0   proc
;
    push    cx
    push    dx
    cld
    mov    cx,100
    xor    dx,dx
    div    cx
    div    cl
    add    al,'0'
    stosb
    mov    al,ah
    aam
    add    ax,'00'
    xchg    ah,al
    stosw
    mov    al,dl
    aam
    add    ax,'00'
    xchg    ah,al
    stosw
    pop    dx
    pop    cx
    ret
;
inttoasc0   endp
;
inttoascb   proc
;
    push    cx
    push    dx
    cld
    mov    cx,100
    xor    dx,dx
    div    cx
    div    cl
    add    al,'0'
    stosb
    mov    al,ah
    aam
    add    ax,'00'
    xchg    ah,al
    stosw
    mov    al,dl
    aam
    add    ax,'00'
    xchg    ah,al
    stosw
;
    push    di
    lea    di,[di-5]
    mov    cx,4
chgspcloop:
    cmp    byte ptr es:[di],'0'
    jne    chgend
    mov    byte ptr es:[di],' '
    inc    di
    loop    chgspcloop
chgend:
    pop    di
    pop    dx
    pop    cx
    ret
;
inttoascb   endp
;
strsvseg    equ     word ptr [bp+8]
returnadr   equ     word ptr [bp+6]
argvseg     equ     word ptr [bp+4]
argvoff     equ     word ptr [bp+2]
argcwrk     equ     word ptr [bp]
;
getarg        proc
;
    sub    sp,140
    mov    bp,sp
    mov    strsvseg,ss
    mov    ax,[bp+140]
    mov    returnadr,ax
    mov    argvseg,es
    xor    ax,ax
    mov    argcwrk,ax
    mov    cx,ax
    mov    cl,ds:[80h]
    mov    si,cx
    inc    cx
    mov    bx,81h
    mov    byte ptr [si+bx],' '
spaceloop:
    cmp    byte ptr [bx],' '
    je    nextchar
    cmp    byte ptr [bx],09h
    jne    spaceout
nextchar:
    inc    bx
    loop    spaceloop
    jmp    argend
spaceout:
    mov    es:[di],bx
    lea    di,[di+4]
    inc    word ptr argcwrk
nospcloop:
    inc    word ptr es:[di-2]
    dec    cx
    jcxz    stringend
    inc    bx
    cmp    byte ptr [bx],' '
    je    stringend
    cmp    byte ptr [bx],09h
    je    stringend
    jmp    short nospcloop
stringend:
    mov    byte ptr [bx],0
    inc    bx
    loop    spaceloop
argend:
    mov    argvoff,di
    mov    ax,argcwrk
    std
    lea    di,[bp+141]
    test    ax,ax
    jz    noargs
argsetloop:
    sub    argvoff,4
    mov    si,argvoff
    mov    cx,es:[si+2]
    mov    es:[si+2],ss
    mov    si,es:[si]
    add    si,cx
    inc    cx
    mov    es,strsvseg
    rep movsb
    les    si,[bp+2]        ;argvoff
    mov    es:[si],di
    inc    word ptr es:[si]
    dec    argcwrk
    jnz    argsetloop
noargs:
    dec    di
    mov    si,returnadr
    mov    ss:[di],si
    mov    sp,di
    test    ax,ax
    ret
;
getarg        endp
;
copysiz equ    word ptr [bp]
fnamsiz equ    word ptr [bp+2]
saveds    equ    [bp+4]
namstr    equ    0
dtaadr    equ    4
bufadr    equ    8
bufoff    equ    8
bufseg    equ    10
bufsiz    equ    12
;
filelist    proc
;
    push    bp
    sub    sp,6
    mov    bp,sp
    mov    saveds,ds
    les    di,[bx].namstr
    call    pathsep
    mov    copysiz,cx
    mov    ah,4eh
    xor    cx,cx
    lds    dx,[bx].namstr
    int    21h
    jc    notfound
findloop:
    mov    ds,saveds
    les    di,[bx].dtaadr
    mov    cx,13
    xor    al,al
    cld
  repne scasb
    sub    cx,13
    neg    cx
    mov    fnamsiz,cx
    add    cx,copysiz
    sub    [bx].bufsiz,cx
    jae    existbuff
    add    [bx].bufsiz,cx
    jmp    short    srchout
existbuff:
    les    di,[bx].bufadr
    lds    si,[bx].namstr
    mov    cx,copysiz
    rep movsb
    mov    ds,saveds
    lds    si,[bx].dtaadr
    mov    cx,fnamsiz
    rep movsb
    mov    ds,saveds
    mov    [bx].bufoff,di
;
    mov    ah,4fh
    lds    dx,[bx].namstr
    xor    cx,cx
    int    21h
    jnc    findloop
notfound:
    mov    ds,saveds
srchout:
    add    sp,6
    pop    bp
    ret
;
filelist    endp
;
pathsep     proc
;
    mov    cx,0ffffh
    cld
    xor    al,al
    push    di
  repne scasb
    pop    di
    not    cx
    dec    cx
    jz    nonames
;
    push    cx
    xor    dx,dx
analysloop:
    mov    al,es:[di]
    inc    di
    cmp    al,':'
    je    findpathchar
    cmp    al,'\'
    je    findpathchar
    cmp    al,81h
    jb    nextanalys
    cmp    al,0a0h
    jb    knjchar
    cmp    al,0e0h
    jb    nextanalys
    cmp    al,0fdh
    jae    nextanalys
knjchar:
    inc    di
    dec    cx
    jz    analysend
    jmp    short nextanalys
findpathchar:
    mov    dx,cx
nextanalys:
    loop    analysloop
analysend:
    pop    cx
    test    dx,dx
    jz    nochar
    dec    dx
    sub    cx,dx
nonames:
    ret
;
nochar:
    xor    cx,cx
    ret
;
pathsep     endp
;
dosstdout   proc
;
    mov    ah,40h
    mov    bx,1
    int    21h
    jc    outerr
    ret
;
dosstdout   endp
;
abort        proc
;
    mov    ax,seg    data
    mov    ds,ax
    mov    ah,40h
    mov    bx,1
    int    21h
;
    mov    ax,errorno
outerr:
    mov    ah,4ch
    int    21h
;
abort        endp
;
code    ends
    end